home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / ppcount.lha / myreq / MyReq.i next >
Encoding:
Text File  |  1994-06-05  |  11.3 KB  |  795 lines
  1.  
  2.     *-------------------------------*
  3.  
  4.     even
  5.     
  6. MY_OK    = -1
  7. MY_CANCEL    = -2
  8. FANCY_OFF    = -1
  9. FANCY_ON    = 0
  10.  
  11. _OpenMyReqs:
  12.     Lea    IntName,A1
  13.     Moveq    #0,D0
  14.     CALLEXEC    OpenLibrary
  15.     Move.l    D0,_IntuitionBase
  16.     Beq    .error
  17.  
  18.     Lea    GfxName,A1
  19.     Moveq    #0,D0
  20.     CALLEXEC    OpenLibrary
  21.     Move.l    D0,_GfxBase
  22.     Beq    .error
  23.  
  24.     Lea    DFontName,a1
  25.     Moveq    #0,D0
  26.     CALLEXEC    OpenLibrary
  27.     Move.l    D0,_DiskfontBase
  28.  
  29.     move.l    #0,TitleFontHandle
  30.     move.l    #0,BodyFontHandle
  31.     cmp.w    #FANCY_ON,My_Fancy
  32.     bne    .no_fancy
  33.  
  34.     cmp.l    #0,_DiskfontBase
  35.     beq    .no_fancy
  36.     
  37.     lea    My_TitleFont,a0
  38.     CALLDISKFONT OpenDiskFont
  39.     move.l    d0,TitleFontHandle
  40.     lea    My_BodyFont,a0
  41.     CALLDISKFONT OpenDiskFont
  42.     move.l    d0,BodyFontHandle
  43.  
  44. .no_fancy    moveq    #-1,d0
  45.     rts
  46.  
  47. .error    moveq    #0,d0
  48.     rts
  49.     
  50.     
  51. _CloseMyReqs:
  52.     Move.l    _IntuitionBase,A1
  53.     CALLEXEC    CloseLibrary
  54.  
  55.     Move.l    _DiskfontBase,A1
  56.     cmp.l    #0,a1
  57.     beq    .nolib
  58.     CALLEXEC    CloseLibrary
  59.  
  60. .nolib    Move.l    _GfxBase,A1
  61.     CALLEXEC    CloseLibrary
  62.  
  63.     move.l    TitleFontHandle,a1
  64.     cmp.l    #0,a1
  65.     beq    .nofont1
  66.     CALLGRAF    CloseFont
  67.     move.l    TitleFontHandle,a1
  68.     CALLGRAF    RemFont
  69. .nofont1    move.l    BodyFontHandle,a1
  70.     cmp.l    #0,a1
  71.     beq    .nofont2
  72.     CALLGRAF    CloseFont
  73.     move.l    BodyFontHandle,a1
  74.     CALLGRAF    RemFont
  75.  
  76. .nofont2    rts
  77.  
  78. _SetOkMsg:
  79.  
  80.     move.l    (a0)+,IMy_Text_My_Text_4+0
  81.     move.w    (a0)+,IMy_Text_My_Text_4+4
  82.  
  83.     move.l    (a0)+,IMy_Text_My_Text_5+0
  84.     move.w    (a0),IMy_Text_My_Text_5+4
  85.  
  86.     rts
  87.  
  88.     *-------------------------------*
  89.  
  90. finish_alert:
  91.     Move.l    _MyReqWinBase,A0
  92.     CALLINT    CloseWindow
  93.     rts
  94.  
  95. setup_alert:
  96.     lea    MyReqWindow,a0
  97.  
  98.     move.l    _IntuitionBase,a6
  99.     move.l    ib_ActiveScreen(a6),nw_Screen(a0)
  100.         
  101.     move.b    (a2)+,d7
  102.  
  103.     cmp.b    #3,d7
  104.     beq    .info_alert
  105.     
  106.     cmp.b    #0,d7
  107.     beq    .not_mini
  108.     
  109.     move.w    #70,nw_Height(a0)
  110.     move.w    #260,My_Width
  111.  
  112.     lea    IMy_Text_1,a0
  113.     bsr    doline
  114.     lea    IMy_Text_2,a0
  115.     bsr    doline
  116.     lea    IMy_Text_3,a0
  117.     bsr    doline
  118.  
  119.     move.l    #GADGETUP+VANILLAKEY,My_Wanted
  120.     move.l    #My_Gadget_4,My_Gadget_3
  121.  
  122.     cmp.b    #2,d7
  123.     bne    .not_yn
  124.  
  125.     move.l    #My_Gadget2_4,My_Gadget_3
  126.     
  127. .not_yn    move.l    _MyReqWinBase,-(a7)
  128.     Move.l    _MyReqWinRPort,-(a7)
  129.     Move.l    _MyReqWinUserPort,-(a7)
  130.     Lea    MyReqWindow,a0
  131.     bsr    IWait
  132.     Move.l    (a7)+,_MyReqWinUserPort
  133.     Move.l    (a7)+,_MyReqWinRPort
  134.     move.l    (a7)+,_MyReqWinBase
  135.     
  136.     rts    
  137.     
  138. .not_mini    move.w    #47,nw_Height(a0)
  139.  
  140.     move.l    #GADGETUP,My_Wanted
  141.  
  142.     move.w    #260,My_Width
  143.     lea    IMy_Text_1,a0
  144.     bsr    doline
  145.     lea    IMy_Text_2,a0
  146.     bsr    doline
  147.     lea    IMy_Text_3,a0
  148.     bsr    doline
  149.     
  150.     Lea    MyReqWindow,a0
  151.     CALLINT    OpenWindow
  152.     Move.l    D0,_MyReqWinBase
  153.     Move.l    D0,A0
  154.     Move.l    wd_RPort(A0),_MyReqWinRPort
  155.     Move.l    wd_UserPort(a0),_MyReqWinUserPort
  156.     rts
  157.  
  158. .info_alert
  159.     lea    MyAlertWindow,a0
  160.  
  161.     move.l    _IntuitionBase,a6
  162.     move.l    ib_ActiveScreen(a6),nw_Screen(a0)
  163.  
  164.     move.w    #286,My_Width
  165.     lea    AlertIText1,a0
  166.     bsr    doline
  167.     lea    AlertIText2,a0
  168.     bsr    doline
  169.     lea    AlertIText3,a0
  170.     bsr    doline
  171.     lea    AlertIText4,a0
  172.     bsr    doline
  173.     lea    AlertIText5,a0
  174.     bsr    doline
  175.     lea    AlertIText6,a0
  176.     bsr    doline
  177.     lea    AlertIText7,a0
  178.     bsr    doline
  179.     lea    AlertIText8,a0
  180.     bsr    doline
  181.     lea    AlertIText9,a0
  182.     bsr    doline
  183.     lea    AlertIText10,a0
  184.     bsr    doline
  185.  
  186.     move.l    _MyReqWinBase,-(a7)
  187.     Move.l    _MyReqWinRPort,-(a7)
  188.     Move.l    _MyReqWinUserPort,-(a7)
  189.  
  190.     Lea    MyAlertWindow,a0
  191.     bsr    IWait
  192.  
  193.     Move.l    (a7)+,_MyReqWinUserPort
  194.     Move.l    (a7)+,_MyReqWinRPort
  195.     move.l    (a7)+,_MyReqWinBase
  196.  
  197.     rts    
  198.  
  199. IWait:    CALLINT    OpenWindow
  200.     Move.l    D0,_MyReqWinBase
  201.     Move.l    D0,A0
  202.     Move.l    wd_RPort(A0),_MyReqWinRPort
  203.     Move.l    wd_UserPort(a0),_MyReqWinUserPort
  204.     
  205. mr_WaitLoop    Move.l    _MyReqWinUserPort,A0
  206.     CALLEXEC    WaitPort
  207.     Move.l    _MyReqWinUserPort,A0
  208.     CALLEXEC    GetMsg
  209.     Move.l    D0,A1
  210.     Move.l    im_Class(A1),D2        ;D2=IDCMP Flags Directly
  211.     Move.w    im_Code(A1),D3        ;D3=Data ie key why class=Rawkey
  212.     Move.w    im_Qualifier(A1),D4        ;D4=things like CTRL SHIFT
  213.     Move.w    im_MouseX(a1),D5        ;D5=MouseX Coordinate
  214.     Move.w    im_MouseY(a1),D6        ;D5=MouseY Coordinate
  215.     Move.l    im_IAddress(A1),D7        ;D7=Addres of Intuition Obj ie Gadget
  216.     Movem.l    D0-D7/A0-A6,-(A7)    
  217.     CALLEXEC    ReplyMsg
  218.     Movem.l    (a7)+,D0-D7/A0-A6
  219.     cmp.l    #VANILLAKEY,D2
  220.     bne    .not_key
  221.     cmp.b    KeyAccept_OK,d3
  222.     bne    .not_ok
  223.     move.l    #MY_OK,d7
  224.     Move.l    _MyReqWinBase,A0
  225.     CALLINT    CloseWindow
  226.     rts
  227.  
  228. .not_ok    cmp.b    KeyAccept_Cancel,d3
  229.     bne    .not_key
  230.     move.l    #MY_CANCEL,d7
  231.     Move.l    _MyReqWinBase,A0
  232.     CALLINT    CloseWindow
  233.     rts
  234.     
  235. .not_key    Cmp.l    #GADGETUP,D2
  236.     bne    mr_WaitLoop
  237.  
  238.     move.l    d7,a0
  239.     move.l    gg_UserData(a0),d3
  240.  
  241. ReqExit    move.l    d3,d7
  242.     Move.l    _MyReqWinBase,A0
  243.     CALLINT    CloseWindow
  244.  
  245.     rts
  246.  
  247.  
  248. doline:    move.l    it_IText(a0),a1
  249.     move.w    #0,d0
  250.     
  251.     cmp.b    #0,(a2)
  252.     beq    .blank
  253. .loop    add.w    #1,d0
  254.     move.b    (a2)+,(a1)+
  255.     cmp.b    #0,(a2)
  256.     bne    .loop
  257.  
  258. .blank    move.b    (a2)+,(a1)+
  259.     asl.w    #3,d0
  260.  
  261.     move.l    a0,-(a7)
  262.     CALLINT    IntuiTextLength
  263.     move.l    (a7)+,a0
  264.  
  265.     move.w    My_Width,d1
  266.     sub.w    d0,d1
  267.     divs    #2,d1
  268.     move.w    d1,it_LeftEdge(a0)
  269.     
  270.     rts
  271.     
  272.     *-------------------------------*
  273.  
  274. _MyReqWinVPort    Dc.l    0
  275. _MyReqWinBase    Dc.l    0
  276. _MyReqWinRPort    Dc.l    0
  277. _MyReqWinUserPort    Dc.l    0
  278. My_Width:        dc.w    260
  279.  
  280. _IntuitionBase    Dc.l    0
  281. _DiskfontBase    dc.l    0
  282. _GfxBase        dc.l    0
  283.  
  284. IntName        INTNAME
  285. GfxName        GRAFNAME
  286. DFontName        DISKFONTNAME
  287.  
  288.         even
  289.  
  290. **************************************************
  291.  
  292. MyReqWindow:
  293.     dc.w    183,45
  294.     dc.w    273,47
  295.     dc.b    0,1
  296. My_Wanted:    dc.l    GADGETUP+VANILLAKEY
  297.     dc.l    ACTIVATE+RMBTRAP+NOCAREREFRESH
  298.     dc.l    My_Gadget_List1
  299.     dc.l    0
  300.     dc.l    0
  301.     dc.l    0
  302.     dc.l    0
  303.     dc.w    5,5
  304.     dc.w    -1,-1
  305.     dc.w    CUSTOMSCREEN
  306. My_Gadget_List1:
  307. My_Gadget_1:
  308.     dc.l    My_Gadget_2
  309.     dc.w    7,5
  310.     dc.w    258,9
  311.     dc.w    GADGHBOX+GADGHIMAGE
  312.     dc.w    0
  313.     dc.w    BOOLGADGET
  314.     dc.l    My_Border_1a
  315.     dc.l    0
  316.     dc.l    IMy_Text_1
  317.     dc.l    0
  318.     dc.l    0
  319.     dc.w    0
  320.     dc.l    0
  321.  
  322. My_Border_1a:    
  323.     dc.w    -1,-1
  324.     dc.b    2,0,RP_JAM1
  325.     dc.b    10
  326.     dc.l    My_Border_Vectors1a
  327.     dc.l    My_Border_1b
  328.  
  329. My_Border_1b:
  330.     dc.w    -1,-1
  331.     dc.b    1,0,RP_JAM1
  332.     dc.b    10
  333.     dc.l    My_Border_Vectors1b
  334.     dc.l    0
  335.  
  336. My_Border_Vectors1a:
  337.     dc.w    0,0
  338.     dc.w    259,0
  339.     dc.w    259,11
  340.     dc.w    260,11
  341.     dc.w    260,0
  342.     dc.w    260,11
  343.     dc.w    -1,11
  344.     dc.w    -1,0
  345.     dc.w    -2,0
  346.     dc.w    -2,11
  347. My_Border_Vectors1b:
  348.     dc.w    259,10
  349.     dc.w    1,10
  350.     dc.w    1,-1
  351.     dc.w    1,10
  352.     dc.w    0,10
  353.     dc.w    0,-1
  354.     dc.w    261,-1
  355.     dc.w    261,10
  356.     dc.w    262,-1
  357.     dc.w    262,10
  358.  
  359. IMy_Text_1:    dc.b    1,0,RP_JAM2,0
  360.     dc.w    5,1
  361.     dc.l    My_BodyFont
  362.     dc.l    IMy_Text_My_Text_1
  363.     dc.l    0
  364. My_Gadget_2:
  365.     dc.l    My_Gadget_3
  366.     dc.w    7,19
  367.     dc.w    258,9
  368.     dc.w    GADGHBOX+GADGHIMAGE
  369.     dc.w    0
  370.     dc.w    BOOLGADGET
  371.     dc.l    My_Border_1a
  372.     dc.l    0
  373.     dc.l    IMy_Text_2
  374.     dc.l    0
  375.     dc.l    0
  376.     dc.w    0
  377.     dc.l    0
  378.  
  379. IMy_Text_2:
  380.     dc.b    1,0,RP_JAM2,0
  381.     dc.w    5,1
  382.     dc.l    My_BodyFont
  383.     dc.l    IMy_Text_My_Text_2
  384.     dc.l    0
  385. My_Gadget_3:
  386.     dc.l    My_Gadget_4
  387.     dc.w    7,34
  388.     dc.w    258,9
  389.     dc.w    GADGHBOX+GADGHIMAGE
  390.     dc.w    0
  391.     dc.w    BOOLGADGET
  392.     dc.l    My_Border_1a
  393.     dc.l    0
  394.     dc.l    IMy_Text_3
  395.     dc.l    0
  396.     dc.l    0
  397.     dc.w    0
  398.     dc.l    0
  399. IMy_Text_3:
  400.     dc.b    1,0,RP_JAM2,0
  401.     dc.w    5,1
  402.     dc.l    My_BodyFont
  403.     dc.l    IMy_Text_My_Text_3
  404.     dc.l    0
  405. My_Gadget_4:
  406.     dc.l    0
  407.     dc.w    102,50
  408.     dc.w    65,15
  409.     dc.w    0
  410.     dc.w    RELVERIFY
  411.     dc.w    BOOLGADGET
  412.     dc.l    My_Border_4a
  413.     dc.l    0
  414.     dc.l    IMy_Text_4
  415.     dc.l    0
  416.     dc.l    0
  417.     dc.w    0
  418.     dc.l    0
  419. My_Border_4a:    dc.w    -1,-1
  420.     dc.b    2,0,RP_JAM1
  421.     dc.b    5
  422.     dc.l    My_Border_Vectors4a
  423.     dc.l    My_Border_4b
  424. My_Border_4b:    dc.w    -1,-1
  425.     dc.b    1,0,RP_JAM1
  426.     dc.b    5
  427.     dc.l    My_Border_Vectors4b
  428.     dc.l    0
  429.  
  430. My_Border_Vectors4a:
  431.     dc.w    0,0
  432.     dc.w    66,0
  433.     dc.w    66,16
  434.     dc.w    67,16
  435.     dc.w    67,0
  436. My_Border_Vectors4b:
  437.     dc.w    67,16
  438.     dc.w    0,16
  439.     dc.w    0,0
  440.     dc.w    -1,0
  441.     dc.w    -1,16
  442. IMy_Text_4:
  443.     dc.b    1,0,RP_JAM1,0
  444.     dc.w    2,4
  445.     dc.l    MY_TOPAZ60
  446.     dc.l    IMy_Text_My_Text_4
  447.     dc.l    0
  448. MY_TOPAZ60:
  449.     dc.l    MY_TopazName
  450.     dc.w    TOPAZ_SIXTY
  451.     dc.b    0,0
  452. MY_TopazName:
  453.     dc.b    'topaz.font',0
  454.     cnop 0,2
  455.  
  456. MY_TOPAZ80:
  457.     dc.l    MY_TopazName
  458.     dc.w    TOPAZ_EIGHTY
  459.     dc.b    0,0
  460.  
  461. IMy_Text_My_Text_1:    dcb.b    32,0
  462. IMy_Text_My_Text_2:    dcb.b    32,0
  463. IMy_Text_My_Text_3:    dcb.b    32,0
  464.         even
  465. IMy_Text_My_Text_4:    dc.b    '  OK  ',0
  466.         even
  467. IMy_Text_My_Text_5:    dc.b    'CANCEL',0
  468.         even
  469.  
  470. KeyAccept_OK:    dc.b    13
  471. KeyAccept_Cancel:    dc.b    27
  472.  
  473.         even
  474.  
  475. My_Gadget2_4:    
  476.     dc.l    My_Gadget2_5
  477.     dc.w    34,50
  478.     dc.w    65,15
  479.     dc.w    0
  480.     dc.w    RELVERIFY
  481.     dc.w    BOOLGADGET
  482.     dc.l    My_Border_4a
  483.     dc.l    0
  484.     dc.l    MyI_Text4
  485.     dc.l    0
  486.     dc.l    0
  487.     dc.w    0
  488.     dc.l    MY_OK
  489.  
  490. MyI_Text4:    dc.b    1,0,RP_JAM1,0
  491.     dc.w    2,4
  492.     dc.l    MY_TOPAZ60
  493.     dc.l    IMy_Text_My_Text_4
  494.     dc.l    0
  495.     cnop 0,2
  496.  
  497. My_Gadget2_5:
  498.     dc.l    0
  499.     dc.w    169,50
  500.     dc.w    65,15
  501.     dc.w    0
  502.     dc.w    RELVERIFY
  503.     dc.w    BOOLGADGET
  504.     dc.l    My_Border_4a
  505.     dc.l    0
  506.     dc.l    MyI_Text5
  507.     dc.l    0
  508.     dc.l    0
  509.     dc.w    0
  510.     dc.l    MY_CANCEL
  511.  
  512. MyI_Text5:    dc.b    1,0,RP_JAM1,0
  513.     dc.w    2,4
  514.     dc.l    MY_TOPAZ60
  515.     dc.l    IMy_Text_My_Text_5
  516.     dc.l    0
  517.     cnop 0,2
  518.  
  519.     ***************************************
  520.  
  521. MyAlertWindow:
  522.     dc.w    169,35
  523.     dc.w    300,130
  524.     dc.b    0,1
  525.     dc.l    VANILLAKEY+GADGETUP
  526.     dc.l    ACTIVATE+RMBTRAP+NOCAREREFRESH
  527.     dc.l    AlertGadgetList
  528.     dc.l    0
  529.     dc.l    0
  530.     dc.l    0
  531.     dc.l    0
  532.     dc.w    5,5
  533.     dc.w    -1,-1
  534.     dc.w    CUSTOMSCREEN
  535. AlertGadgetList:
  536.     dc.l    AlertGadget2
  537.     dc.w    7,4
  538.     dc.w    286,10
  539.     dc.w    0
  540.     dc.w    0
  541.     dc.w    BOOLGADGET
  542.     dc.l    0
  543.     dc.l    0
  544.     dc.l    AlertIText1
  545.     dc.l    0
  546.     dc.l    0
  547.     dc.w    0
  548.     dc.l    0
  549. AlertIText1:
  550.     dc.b    1,0,RP_JAM1,0
  551.     dc.w    4,1
  552.     dc.l    My_TitleFont
  553.     dc.l    AlertITextText1
  554.     dc.l    0
  555. AlertGadget2:
  556.     dc.l    AlertGadget3
  557.     dc.w    7,14
  558.     dc.w    286,10
  559.     dc.w    0
  560.     dc.w    0
  561.     dc.w    BOOLGADGET
  562.     dc.l    0
  563.     dc.l    0
  564.     dc.l    AlertIText2
  565.     dc.l    0
  566.     dc.l    0
  567.     dc.w    0
  568.     dc.l    0
  569. AlertIText2:
  570.     dc.b    1,0,RP_JAM2,0
  571.     dc.w    4,1
  572.     dc.l    My_BodyFont
  573.     dc.l    AlertITextText2
  574.     dc.l    0
  575. AlertGadget3:
  576.     dc.l    AlertGadget4
  577.     dc.w    7,24
  578.     dc.w    286,10
  579.     dc.w    0
  580.     dc.w    0
  581.     dc.w    BOOLGADGET
  582.     dc.l    0
  583.     dc.l    0
  584.     dc.l    AlertIText3
  585.     dc.l    0
  586.     dc.l    0
  587.     dc.w    0
  588.     dc.l    0
  589. AlertIText3:
  590.     dc.b    1,0,RP_JAM1,0
  591.     dc.w    4,1
  592.     dc.l    My_BodyFont
  593.     dc.l    AlertITextText3
  594.     dc.l    0
  595. AlertGadget4:
  596.     dc.l    AlertGadget5
  597.     dc.w    7,34
  598.     dc.w    286,10
  599.     dc.w    0
  600.     dc.w    0
  601.     dc.w    BOOLGADGET
  602.     dc.l    0
  603.     dc.l    0
  604.     dc.l    AlertIText4
  605.     dc.l    0
  606.     dc.l    0
  607.     dc.w    0
  608.     dc.l    0
  609. AlertIText4:
  610.     dc.b    1,0,RP_JAM1,0
  611.     dc.w    4,1
  612.     dc.l    My_BodyFont
  613.     dc.l    AlertITextText4
  614.     dc.l    0
  615. AlertGadget5:
  616.     dc.l    AlertGadget6
  617.     dc.w    7,44
  618.     dc.w    286,10
  619.     dc.w    0
  620.     dc.w    0
  621.     dc.w    BOOLGADGET
  622.     dc.l    0
  623.     dc.l    0
  624.     dc.l    AlertIText5
  625.     dc.l    0
  626.     dc.l    0
  627.     dc.w    0
  628.     dc.l    0
  629. AlertIText5:
  630.     dc.b    1,0,RP_JAM1,0
  631.     dc.w    4,1
  632.     dc.l    My_BodyFont
  633.     dc.l    AlertITextText5
  634.     dc.l    0
  635. AlertGadget6:
  636.     dc.l    AlertGadget7
  637.     dc.w    7,54
  638.     dc.w    286,10
  639.     dc.w    0
  640.     dc.w    0
  641.     dc.w    BOOLGADGET
  642.     dc.l    0
  643.     dc.l    0
  644.     dc.l    AlertIText6
  645.     dc.l    0
  646.     dc.l    0
  647.     dc.w    0
  648.     dc.l    0
  649. AlertIText6:
  650.     dc.b    1,0,RP_JAM1,0
  651.     dc.w    4,1
  652.     dc.l    My_BodyFont
  653.     dc.l    AlertITextText6
  654.     dc.l    0
  655. AlertGadget7:
  656.     dc.l    AlertGadget8
  657.     dc.w    7,64
  658.     dc.w    286,10
  659.     dc.w    0
  660.     dc.w    0
  661.     dc.w    BOOLGADGET
  662.     dc.l    0
  663.     dc.l    0
  664.     dc.l    AlertIText7
  665.     dc.l    0
  666.     dc.l    0
  667.     dc.w    0
  668.     dc.l    0
  669. AlertIText7:
  670.     dc.b    1,0,RP_JAM1,0
  671.     dc.w    4,1
  672.     dc.l    My_BodyFont
  673.     dc.l    AlertITextText7
  674.     dc.l    0
  675. AlertGadget8:
  676.     dc.l    AlertGadget9
  677.     dc.w    7,74
  678.     dc.w    286,10
  679.     dc.w    0
  680.     dc.w    0
  681.     dc.w    BOOLGADGET
  682.     dc.l    0
  683.     dc.l    0
  684.     dc.l    AlertIText8
  685.     dc.l    0
  686.     dc.l    0
  687.     dc.w    0
  688.     dc.l    0
  689. AlertIText8:
  690.     dc.b    1,0,RP_JAM1,0
  691.     dc.w    4,1
  692.     dc.l    My_BodyFont
  693.     dc.l    AlertITextText8
  694.     dc.l    0
  695. AlertGadget9:
  696.     dc.l    AlertGadget10
  697.     dc.w    7,84
  698.     dc.w    286,10
  699.     dc.w    0
  700.     dc.w    0
  701.     dc.w    BOOLGADGET
  702.     dc.l    0
  703.     dc.l    0
  704.     dc.l    AlertIText9
  705.     dc.l    0
  706.     dc.l    0
  707.     dc.w    0
  708.     dc.l    0
  709. AlertIText9:
  710.     dc.b    1,0,RP_JAM1,0
  711.     dc.w    4,1
  712.     dc.l    My_BodyFont
  713.     dc.l    AlertITextText9
  714.     dc.l    0
  715. AlertGadget10:
  716.     dc.l    My_OK_AlertGadget
  717.     dc.w    7,94
  718.     dc.w    286,10
  719.     dc.w    0
  720.     dc.w    0
  721.     dc.w    BOOLGADGET
  722.     dc.l    0
  723.     dc.l    0
  724.     dc.l    AlertIText10
  725.     dc.l    0
  726.     dc.l    0
  727.     dc.w    0
  728.     dc.l    0
  729.  
  730. AlertIText10:
  731.     dc.b    1,0,RP_JAM1,0
  732.     dc.w    4,1
  733.     dc.l    My_BodyFont
  734.     dc.l    AlertITextText10
  735.     dc.l    0
  736.     
  737. AlertITextText1:    ds.b    35
  738. AlertITextText2:    ds.b    35
  739. AlertITextText3:    ds.b    35
  740. AlertITextText4:    ds.b    35
  741. AlertITextText5:    ds.b    35
  742. AlertITextText6:    ds.b    35
  743. AlertITextText7:    ds.b    35
  744. AlertITextText8:    ds.b    35
  745. AlertITextText9:    ds.b    35
  746. AlertITextText10:    ds.b    35
  747.     cnop 0,2
  748.  
  749. My_OK_AlertGadget:
  750.     dc.l    0
  751.     dc.w    119,110
  752.     dc.w    65,15
  753.     dc.w    0
  754.     dc.w    RELVERIFY
  755.     dc.w    BOOLGADGET
  756.     dc.l    My_Border_4a
  757.     dc.l    0
  758.     dc.l    AlertIText11
  759.     dc.l    0
  760.     dc.l    0
  761.     dc.w    0
  762.     dc.l    0
  763.  
  764. AlertIText11:
  765.     dc.b    1,0,RP_JAM1,0
  766.     dc.w    3,4
  767.     dc.l    MY_TOPAZ60
  768.     dc.l    IMy_Text_My_Text_4
  769.     dc.l    0
  770.  
  771. My_TitleFont:    
  772.     dc.l    My_TitleFontName
  773.     dc.w    16
  774.     dc.b    0,0
  775. My_TitleFontName:
  776.     dc.b    'Garnet.font',0
  777.     cnop 0,2
  778.         
  779.  
  780. My_BodyFont:    
  781.     dc.l    My_BodyFontName
  782.     dc.w    8
  783.     dc.b    0        ; style 
  784.     dc.b    0        ; flags
  785. My_BodyFontName:
  786.     dc.b    'DPaint.font',0
  787.     cnop 0,2
  788.  
  789.     
  790. TitleFontHandle:    dc.l    0
  791. BodyFontHandle:    dc.l    0
  792. My_Fancy:        dc.l    0
  793.  
  794.     *-------------------------------*
  795.